home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / vc / auto-autoloads.el.z / auto-autoloads.el
Encoding:
Text File  |  1998-05-21  |  14.3 KB  |  320 lines
  1. ;;; DO NOT MODIFY THIS FILE
  2. (if (featurep 'vc-autoloads) (error "Already loaded"))
  3.  
  4. ;;;### (autoloads (vc-menu-filter vc-kill-buffer-hook vc-file-not-found-hook vc-find-file-hook vc-follow-link vc-status vc-mode-line vc-after-save vc-toggle-read-only vc-buffer-backend vc-find-cvs-master vc-registered vc-workfile-version vc-fetch-properties vc-master-workfile-version vc-your-latest-version vc-latest-version vc-locking-user vc-rcs-lock-from-diff vc-file-owner vc-user-login-name vc-lock-from-permissions vc-master-locking-user vc-master-locks vc-cvs-status vc-checkout-model vc-backend vc-name vc-backend-subdirectory-name vc-consult-rcs-headers vc-fetch-master-properties vc-simple-command vc-parse-locks vc-insert-file vc-parse-buffer vc-lock-file vc-match-substring vc-file-clearprops vc-file-getprop vc-file-setprop vc-error-occurred vc-mistrust-permissions) "vc-hooks" "vc/vc-hooks.el")
  5.  
  6. (defvar vc-default-back-end nil "\
  7. *Back-end actually used by this interface; may be SCCS or RCS.
  8. The value is only computed when needed to avoid an expensive search.")
  9.  
  10. (defvar vc-handle-cvs t "\
  11. *If non-nil, use VC for files managed with CVS.
  12. If it is nil, don't use VC for those files.")
  13.  
  14. (defvar vc-rcsdiff-knows-brief nil "\
  15. *Indicates whether rcsdiff understands the --brief option.
  16. The value is either `yes', `no', or nil.  If it is nil, VC tries
  17. to use --brief and sets this variable to remember whether it worked.")
  18.  
  19. (defvar vc-path (if (file-directory-p "/usr/sccs") '("/usr/sccs") nil) "\
  20. *List of extra directories to search for version control commands.")
  21.  
  22. (defvar vc-master-templates '(("%sRCS/%s,v" . RCS) ("%s%s,v" . RCS) ("%sRCS/%s" . RCS) ("%sSCCS/s.%s" . SCCS) ("%ss.%s" . SCCS) vc-find-cvs-master) "\
  23. *Where to look for version-control master files.
  24. The first pair corresponding to a given back end is used as a template
  25. when creating new masters.")
  26.  
  27. (defvar vc-make-backup-files nil "\
  28. *If non-nil, backups of registered files are made as with other files.
  29. If nil (the default), files covered by version control don't get backups.")
  30.  
  31. (defvar vc-follow-symlinks 'ask "\
  32. *Indicates what to do if you visit a symbolic link to a file
  33. that is under version control.  Editing such a file through the
  34. link bypasses the version control system, which is dangerous and
  35. probably not what you want.  
  36.   If this variable is t, VC follows the link and visits the real file,
  37. telling you about it in the echo area.  If it is `ask', VC asks for
  38. confirmation whether it should follow the link.  If nil, the link is
  39. visited and a warning displayed.")
  40.  
  41. (defvar vc-display-status t "\
  42. *If non-nil, display revision number and lock status in modeline.
  43. Otherwise, not displayed.")
  44.  
  45. (defvar vc-consult-headers t "\
  46. *If non-nil, identify work files by searching for version headers.")
  47.  
  48. (defvar vc-keep-workfiles t "\
  49. *If non-nil, don't delete working files after registering changes.
  50. If the back-end is CVS, workfiles are always kept, regardless of the
  51. value of this flag.")
  52.  
  53. (defvar vc-mistrust-permissions nil "\
  54. *If non-nil, don't assume that permissions and ownership track 
  55. version-control status.  If nil, do rely on the permissions.
  56. See also variable `vc-consult-headers'.")
  57.  
  58. (autoload 'vc-mistrust-permissions "vc-hooks" nil nil nil)
  59.  
  60. (add-minor-mode 'vc-mode 'vc-mode)
  61.  
  62. (defvar vc-mode nil)
  63.  
  64. (make-variable-buffer-local 'vc-mode)
  65.  
  66. (put 'vc-mode 'permanent-local t)
  67.  
  68. (autoload 'vc-error-occurred "vc-hooks" nil nil 'macro)
  69.  
  70. (defvar vc-file-prop-obarray [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] "\
  71. Obarray for per-file properties.")
  72.  
  73. (defvar vc-buffer-backend t)
  74.  
  75. (autoload 'vc-file-setprop "vc-hooks" nil nil nil)
  76.  
  77. (autoload 'vc-file-getprop "vc-hooks" nil nil nil)
  78.  
  79. (autoload 'vc-file-clearprops "vc-hooks" nil nil nil)
  80.  
  81. (autoload 'vc-match-substring "vc-hooks" nil nil nil)
  82.  
  83. (autoload 'vc-lock-file "vc-hooks" nil nil nil)
  84.  
  85. (autoload 'vc-parse-buffer "vc-hooks" nil nil nil)
  86.  
  87. (autoload 'vc-insert-file "vc-hooks" nil nil nil)
  88.  
  89. (autoload 'vc-parse-locks "vc-hooks" nil nil nil)
  90.  
  91. (autoload 'vc-simple-command "vc-hooks" nil nil nil)
  92.  
  93. (autoload 'vc-fetch-master-properties "vc-hooks" nil nil nil)
  94.  
  95. (autoload 'vc-consult-rcs-headers "vc-hooks" nil nil nil)
  96.  
  97. (autoload 'vc-backend-subdirectory-name "vc-hooks" nil nil nil)
  98.  
  99. (autoload 'vc-name "vc-hooks" "\
  100. Return the master name of a file, nil if it is not registered.
  101. For CVS, the full name of CVS/Entries is returned." nil nil)
  102.  
  103. (autoload 'vc-backend "vc-hooks" "\
  104. Return the version-control type of a file, nil if it is not registered." nil nil)
  105.  
  106. (autoload 'vc-checkout-model "vc-hooks" nil nil nil)
  107.  
  108. (autoload 'vc-cvs-status "vc-hooks" nil nil nil)
  109.  
  110. (autoload 'vc-master-locks "vc-hooks" nil nil nil)
  111.  
  112. (autoload 'vc-master-locking-user "vc-hooks" nil nil nil)
  113.  
  114. (autoload 'vc-lock-from-permissions "vc-hooks" nil nil nil)
  115.  
  116. (autoload 'vc-user-login-name "vc-hooks" nil nil nil)
  117.  
  118. (autoload 'vc-file-owner "vc-hooks" nil nil nil)
  119.  
  120. (autoload 'vc-rcs-lock-from-diff "vc-hooks" nil nil nil)
  121.  
  122. (autoload 'vc-locking-user "vc-hooks" nil nil nil)
  123.  
  124. (autoload 'vc-latest-version "vc-hooks" nil nil nil)
  125.  
  126. (autoload 'vc-your-latest-version "vc-hooks" nil nil nil)
  127.  
  128. (autoload 'vc-master-workfile-version "vc-hooks" nil nil nil)
  129.  
  130. (autoload 'vc-fetch-properties "vc-hooks" nil nil nil)
  131.  
  132. (autoload 'vc-workfile-version "vc-hooks" nil nil nil)
  133.  
  134. (autoload 'vc-registered "vc-hooks" nil nil nil)
  135.  
  136. (autoload 'vc-find-cvs-master "vc-hooks" nil nil nil)
  137.  
  138. (autoload 'vc-buffer-backend "vc-hooks" "\
  139. Return the version-control type of the visited file, or nil if none." nil nil)
  140.  
  141. (autoload 'vc-toggle-read-only "vc-hooks" "\
  142. Change read-only status of current buffer, perhaps via version control.
  143. If the buffer is visiting a file registered with version control,
  144. then check the file in or out.  Otherwise, just change the read-only flag
  145. of the buffer.  With prefix argument, ask for version number." t nil)
  146.  
  147. (define-key global-map "" 'vc-toggle-read-only)
  148.  
  149. (autoload 'vc-after-save "vc-hooks" nil nil nil)
  150.  
  151. (autoload 'vc-mode-line "vc-hooks" "\
  152. Set `vc-mode' to display type of version control for FILE.
  153. The value is set in the current buffer, which should be the buffer
  154. visiting FILE.  Second optional arg LABEL is put in place of version
  155. control system name." t nil)
  156.  
  157. (autoload 'vc-status "vc-hooks" nil nil nil)
  158.  
  159. (autoload 'vc-follow-link "vc-hooks" nil nil nil)
  160.  
  161. (autoload 'vc-find-file-hook "vc-hooks" nil nil nil)
  162.  
  163. (add-hook 'find-file-hooks 'vc-find-file-hook)
  164.  
  165. (autoload 'vc-file-not-found-hook "vc-hooks" "\
  166. When file is not found, try to check it out from RCS or SCCS.
  167. Returns t if checkout was successful, nil otherwise." nil nil)
  168.  
  169. (add-hook 'find-file-not-found-hooks 'vc-file-not-found-hook)
  170.  
  171. (autoload 'vc-kill-buffer-hook "vc-hooks" nil nil nil)
  172.  
  173. (setq vc-prefix-map (lookup-key global-map "v"))
  174.  
  175. (if (not (keymapp vc-prefix-map)) (progn (setq vc-prefix-map (make-sparse-keymap)) (define-key global-map "v" vc-prefix-map) (define-key vc-prefix-map "a" 'vc-update-change-log) (define-key vc-prefix-map "c" 'vc-cancel-version) (define-key vc-prefix-map "d" 'vc-directory) (define-key vc-prefix-map "h" 'vc-insert-headers) (define-key vc-prefix-map "i" 'vc-register) (define-key vc-prefix-map "l" 'vc-print-log) (define-key vc-prefix-map "r" 'vc-retrieve-snapshot) (define-key vc-prefix-map "s" 'vc-create-snapshot) (define-key vc-prefix-map "u" 'vc-revert-buffer) (define-key vc-prefix-map "v" 'vc-next-action) (define-key vc-prefix-map "=" 'vc-diff) (define-key vc-prefix-map "~" 'vc-version-other-window)))
  176.  
  177. (defconst vc-menu '("VC" :filter vc-menu-filter ["" vc-next-action buffer-file-name nil] "----" ["Revert to Last Revision" vc-revert-buffer vc-mode nil] ["Cancel Last Checkin" vc-cancel-version vc-mode] ["Rename File" vc-rename-this-file vc-mode nil] "----" ["Diff Against Last Version" vc-diff vc-mode] ["Diff Between Revisions..." vc-version-diff vc-mode] ["Visit Other Version..." vc-version-other-window vc-mode] ["Show Edit History" vc-print-log vc-mode] "----" ["List Locked Files Any User" vc-directory t] "----" ["Create Snapshot" vc-create-snapshot t] ["Retrieve Snapshot" vc-retrieve-snapshot t] "----" ["CVS Update Directory" cvs-update t]) "\
  178. Menubar entry for using the revision control system.")
  179.  
  180. (autoload 'vc-menu-filter "vc-hooks" nil nil nil)
  181.  
  182. (and (featurep 'menubar) current-menubar (car (find-menu-item current-menubar '("Tools"))) (add-submenu '("Tools") vc-menu "Compare") (add-menu-button '("Tools") "---" "Compare"))
  183.  
  184. ;;;***
  185.  
  186. ;;;### (autoloads (vc-update-change-log vc-rename-file vc-cancel-version vc-revert-buffer vc-print-log vc-retrieve-snapshot vc-create-snapshot vc-directory vc-insert-headers vc-version-other-window vc-version-diff vc-diff vc-checkout vc-register vc-next-action vc-find-binary) "vc" "vc/vc.el")
  187.  
  188. (defvar vc-before-checkin-hook nil "\
  189. *Normal hook (list of functions) run before a file gets checked in.  
  190. See `run-hooks'.")
  191.  
  192. (defvar vc-checkin-hook nil "\
  193. *Normal hook (List of functions) run after a checkin is done.
  194. See `run-hooks'.")
  195.  
  196. (autoload 'vc-find-binary "vc" "\
  197. Look for a command anywhere on the subprocess-command search path." nil nil)
  198.  
  199. (autoload 'vc-next-action "vc" "\
  200. Do the next logical checkin or checkout operation on the current file.
  201.    If you call this from within a VC dired buffer with no files marked,
  202. it will operate on the file in the current line.
  203.    If you call this from within a VC dired buffer, and one or more
  204. files are marked, it will accept a log message and then operate on
  205. each one.  The log message will be used as a comment for any register
  206. or checkin operations, but ignored when doing checkouts.  Attempted
  207. lock steals will raise an error.
  208.    A prefix argument lets you specify the version number to use.
  209.  
  210. For RCS and SCCS files:
  211.    If the file is not already registered, this registers it for version
  212. control and then retrieves a writable, locked copy for editing.
  213.    If the file is registered and not locked by anyone, this checks out
  214. a writable and locked file ready for editing.
  215.    If the file is checked out and locked by the calling user, this
  216. first checks to see if the file has changed since checkout.  If not,
  217. it performs a revert.
  218.    If the file has been changed, this pops up a buffer for entry
  219. of a log message; when the message has been entered, it checks in the
  220. resulting changes along with the log message as change commentary.  If
  221. the variable `vc-keep-workfiles' is non-nil (which is its default), a
  222. read-only copy of the changed file is left in place afterwards.
  223.    If the file is registered and locked by someone else, you are given
  224. the option to steal the lock.
  225.  
  226. For CVS files:
  227.    If the file is not already registered, this registers it for version
  228. control.  This does a \"cvs add\", but no \"cvs commit\".
  229.    If the file is added but not committed, it is committed.
  230.    If your working file is changed, but the repository file is
  231. unchanged, this pops up a buffer for entry of a log message; when the
  232. message has been entered, it checks in the resulting changes along
  233. with the logmessage as change commentary.  A writable file is retained.
  234.    If the repository file is changed, you are asked if you want to
  235. merge in the changes into your working copy." t nil)
  236.  
  237. (autoload 'vc-register "vc" "\
  238. Register the current file into your version-control system.
  239. The default initial version number, taken to be `vc-default-init-version',
  240. can be overridden by giving a prefix arg." t nil)
  241.  
  242. (autoload 'vc-checkout "vc" "\
  243. Retrieve a copy of the latest version of the given file." nil nil)
  244.  
  245. (autoload 'vc-diff "vc" "\
  246. Display diffs between file versions.
  247. Normally this compares the current file and buffer with the most recent 
  248. checked in version of that file.  This uses no arguments.
  249. With a prefix argument, it reads the file name to use
  250. and two version designators specifying which versions to compare." t nil)
  251.  
  252. (autoload 'vc-version-diff "vc" "\
  253. For FILE, report diffs between two stored versions REL1 and REL2 of it.
  254. If FILE is a directory, generate diffs between versions for all registered
  255. files in or below it." t nil)
  256.  
  257. (autoload 'vc-version-other-window "vc" "\
  258. Visit version REV of the current buffer in another window.
  259. If the current buffer is named `F', the version is named `F.~REV~'.
  260. If `F.~REV~' already exists, it is used instead of being re-created." t nil)
  261.  
  262. (autoload 'vc-insert-headers "vc" "\
  263. Insert headers in a file for use with your version-control system.
  264. Headers desired are inserted at the start of the buffer, and are pulled from
  265. the variable `vc-header-alist'." t nil)
  266.  
  267. (autoload 'vc-directory "vc" "\
  268. Show version-control status of the current directory and subdirectories.
  269. Normally it creates a Dired buffer that lists only the locked files
  270. in all these directories.  With a prefix argument, it lists all files." t nil)
  271.  
  272. (autoload 'vc-create-snapshot "vc" "\
  273. Make a snapshot called NAME.
  274. The snapshot is made from all registered files at or below the current
  275. directory.  For each file, the version level of its latest
  276. version becomes part of the named configuration." t nil)
  277.  
  278. (autoload 'vc-retrieve-snapshot "vc" "\
  279. Retrieve the snapshot called NAME.
  280. This function fails if any files are locked at or below the current directory
  281. Otherwise, all registered files are checked out (unlocked) at their version
  282. levels in the snapshot." t nil)
  283.  
  284. (autoload 'vc-print-log "vc" "\
  285. List the change log of the current buffer in a window." t nil)
  286.  
  287. (autoload 'vc-revert-buffer "vc" "\
  288. Revert the current buffer's file back to the latest checked-in version.
  289. This asks for confirmation if the buffer contents are not identical
  290. to that version.
  291. If the back-end is CVS, this will give you the most recent revision of
  292. the file on the branch you are editing." t nil)
  293.  
  294. (autoload 'vc-cancel-version "vc" "\
  295. Get rid of most recently checked in version of this file.
  296. A prefix argument means do not revert the buffer afterwards." t nil)
  297.  
  298. (autoload 'vc-rename-file "vc" "\
  299. Rename file OLD to NEW, and rename its master file likewise." t nil)
  300.  
  301. (autoload 'vc-update-change-log "vc" "\
  302. Find change log file and add entries from recent RCS/CVS logs.
  303. Normally, find log entries for all registered files in the default
  304. directory using `rcs2log', which finds CVS logs preferentially.
  305. The mark is left at the end of the text prepended to the change log.
  306.  
  307. With prefix arg of C-u, only find log entries for the current buffer's file.
  308.  
  309. With any numeric prefix arg, find log entries for all currently visited
  310. files that are under version control.  This puts all the entries in the
  311. log for the default directory, which may not be appropriate.
  312.  
  313. From a program, any arguments are assumed to be filenames and are
  314. passed to the `rcs2log' script after massaging to be relative to the
  315. default directory." t nil)
  316.  
  317. ;;;***
  318.  
  319. (provide 'vc-autoloads)
  320.